home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / CHOMPER.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.6 KB  |  64 lines
  1. 100  '********************************************
  2. 110  '**                 CHOMPER                **
  3. 120  '**                                        **
  4. 130  '**  JULY 13, 1982            VERSION 1.1  **
  5. 140  '********************************************
  6. 150  SCREEN 2:KEY OFF
  7. 160  CLEAR ,10000
  8. 170  DEF SEG = 0
  9. 180  FOR X = &HFC00 TO &HFFFF
  10. 190  POKE X,0
  11. 200  NEXT
  12. 210  POKE &H7D,&HFC
  13. 220  DEF SEG = &HFC0
  14. 230  FOR X = 0 TO 63
  15. 240  READ Y
  16. 250  POKE X,Y
  17. 260  NEXT
  18. 270  DATA &H07 ,&H1F ,&H3F ,&H7F ,&H7F ,&HFF ,&HFF ,&HFF
  19. 280  DATA &HE0 ,&HF8 ,&HFC ,&HFE ,&HFE ,&HFF ,&HFF ,&HFF
  20. 290  DATA &HFF ,&HFF ,&HFF ,&H7F ,&H7F ,&H3F ,&H1F ,&H07
  21. 300  DATA &HFF ,&HFF ,&HFF ,&HFE ,&HFE ,&HFC ,&HF8 ,&HE0
  22. 310  DATA &HE0 ,&HF8 ,&HFC ,&HF8 ,&HF0 ,&HE0 ,&HC0 ,&H80
  23. 320  DATA &H80 ,&HC0 ,&HE0 ,&HF0 ,&HF8 ,&HFC ,&HF8 ,&HE0
  24. 330  DATA &HE0 ,&HF8 ,&HFC ,&HFE ,&HFE ,&HFE ,&HF8 ,&HC0
  25. 340  DATA &HC0 ,&HF8 ,&HFE ,&HFE ,&HFE ,&HFC ,&HF8 ,&HE0
  26. 350  CLS
  27. 360  FOR X = 2 TO 24 STEP 3
  28. 370  FOR Y = 1 TO 70 STEP 4
  29. 380  LOCATE X,Y+3
  30. 390  PRINT ".";
  31. 400  NEXT Y,X
  32. 410  FOR X = 2 TO 24 STEP 3
  33. 420  FOR Y = 1 TO 70 STEP 4
  34. 430  LOCATE X,Y
  35. 440  PRINT CHR$(32);CHR$(128);CHR$(129);CHR$(32);
  36. 450  LOCATE X+1,Y
  37. 460  PRINT CHR$(32);CHR$(130);CHR$(131);CHR$(32);
  38. 470  FOR Z = 1 TO 50:NEXT
  39. 480  LOCATE X,Y+1
  40. 490  PRINT CHR$(32);CHR$(128);CHR$(134);CHR$(32);
  41. 500  LOCATE X+1,Y+1
  42. 510  PRINT CHR$(32);CHR$(130);CHR$(134);CHR$(32);
  43. 520  FOR Z = 1 TO 50:NEXT
  44. 530  LOCATE X,Y+2
  45. 540  PRINT CHR$(32);CHR$(128);CHR$(132);CHR$(32);
  46. 550  LOCATE X+1,Y+2
  47. 560  PRINT CHR$(32);CHR$(130);CHR$(133);CHR$(32);
  48. 570  FOR Z = 1 TO 50:NEXT
  49. 580  LOCATE X,Y+3
  50. 590  PRINT CHR$(32);CHR$(128);CHR$(134);CHR$(32);
  51. 600  LOCATE X+1,Y+3
  52. 610  PRINT CHR$(32);CHR$(130);CHR$(135);CHR$(32);
  53. 620  FOR Z = 1 TO 50:NEXT
  54. 630  LOCATE X,Y+4
  55. 640  PRINT CHR$(32);CHR$(128);CHR$(129);CHR$(32);
  56. 650  LOCATE X+1,Y+4
  57. 660  PRINT CHR$(32);CHR$(130);CHR$(131);CHR$(32);
  58. 670  NEXT Y
  59. 680  LOCATE X,65
  60. 690  PRINT "            "
  61. 700  LOCATE X+1,65
  62. 710  PRINT "            "
  63. 720  NEXT X
  64.